home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / amos / AMOSList-0998.lzh / AMOSLIST / 000126_bounce-amos-li…net@onelist.com_Sun Sep 6 19:33:03 1998.msg < prev    next >
Text File  |  1998-10-01  |  8KB  |  257 lines
  1. >From bounce-amos-list--985-mcox=access.digex.net@onelist.com  Sun Sep  6 19:33:03 1998
  2. Received: from onelist.com (pop.onelist.com [209.207.164.13])
  3.     by pony-1.mail.digex.net (8.8.8/8.8.8) with SMTP id TAA01999
  4.     for <mcox@access.digex.net>; Sun, 6 Sep 1998 19:33:03 -0400 (EDT)
  5. Received: (qmail 1278 invoked by alias); 6 Sep 1998 23:36:55 -0000
  6. Received: (qmail 1262 invoked from network); 6 Sep 1998 23:36:54 -0000
  7. Received: from unknown (HELO mail.enterprise.net) (194.72.192.18) by pop.onelist.com with SMTP; 6 Sep 1998 23:36:54 -0000
  8. Received: from enterprise.net (root@ppp-175.telinco.net [195.188.53.131]) by mail.enterprise.net (8.8.5/8.8.5) with SMTP id AAA01418 for <amos-list@onelist.com>; Mon, 7 Sep 1998 00:32:57 +0100 (GMT/BST)
  9. From: Andrew Crowe <andrewcrowe@enterprise.net>
  10. To: amos-list@onelist.com
  11. Date: Mon, 07 Sep 1998 00:31:04 +0000
  12. Message-ID: <yam7554.245.1195541720@mail.enterprise.net>
  13. In-Reply-To: <000201bdd9db$72a19820$903963c3@np5gt>
  14. X-Mailer: YAM 2.0 Preview5 - Amiga Mailer by Marcel Beck - http://www.yam.ch
  15. Organization: Manta Soft
  16. Mailing-List: list amos-list@onelist.com; contact http://www.onelist.com
  17. Delivered-To: mailing list amos-list@onelist.com
  18. Precedence: bulk
  19. Reply-to: amos-list@onelist.com
  20. Mime-Version: 1.0
  21. Content-type: multipart/mixed; boundary="BOUNDARY.1195541720.1"
  22. Subject: [amos-list] Re: Hey Andrew Crowe!
  23. Status: O
  24. X-Status: 
  25.  
  26. From: Andrew Crowe <andrewcrowe@enterprise.net>
  27.  
  28. Warning: This is a message in MIME format. Your mail reader does not
  29. support MIME. Some parts of this message will be readable as plain text.
  30. To see the rest, you will need to upgrade your mail reader.
  31.  
  32.  
  33. --BOUNDARY.1195541720.1
  34. Content-Type: text/plain
  35.  
  36. Hi Everybody,
  37.  
  38. On 06-Sep-98, John Glanville wrote something which is obviously worth
  39. replying to:
  40. > Thankyou 4 the code... I think i can use it and put it 2 use in my
  41. isometric 3d engine!!!
  42. > Here is a Optimized version of your code that i did so it would fit
  43. with my code!
  44. > Thanx... Phil!
  45.  
  46. Thanks for optimizing it, but you left a few bits out. Here is a working
  47. version which will let you move about the map as well. 
  48.  
  49. BTW. How are you going to use this in an isometric engine? I think
  50. theres probably a much quicker way of rotating isometric blocks by 90
  51. degrees. (if thats what youre doing)
  52.  
  53. See ya.
  54. -- 
  55.                                 <PRE>
  56.   - --------------------- Quote of the day: ---------------------- -
  57. You cannot kill time without injuring eternity.
  58. -- Thoreau
  59.  
  60. +--------------------------------------------------------------------+
  61. |                                                ,aNNN               |
  62. |  a&   NL                 ,a,                 ,gNNNNN               |
  63. |  @7L d 0   ,a,,aw ,a,,  JN Q,  ,a,,aw,,,,  ,gNM"`NN'               |
  64. | J  9w"  K N" "" NN"""""WF  ~3&N" "" N   ""^N"    NF                |
  65. | N , " , Nd ,@M, NN JML @ML d@N ,@4, N       ',  JK                 |
  66. |d JMc dN  N  NN  NN 0 1 1J1 0 0  NN  N         L,K                  |
  67. |N,N 0w' Na@h,,a,,NQ,0 &J1J&,0  \,,a,,N         JF                   |
  68. | ""  "  ~"  ""~"""~"" ""  """  t""~"""        j"1                   |
  69. |                               F             JgmJ        ,gm        |
  70. |                               F            N"  N  ,,    F ,N gNN   |
  71. |      Andrew Crowe             Q          jJF  mP p""9w,NL NwmP 0mw |
  72. |      ~~~~~~~~~~~~             ]         / I  0 F@ am, Nw  ,0&   ,N |
  73. |       Manta Soft             ,F\      a' ,N  Nf L E 0 0ML N""N 0"  |
  74. |       ~~~~~~~~~~            ,N  \,  ,P N@"  JF  & `@" NJL N  N 0   |
  75. |                            ,N     ad"   \wam"   `Nx,aN JNmN  NmN   |
  76. |                            NN ,,gN" ""PP"                          |
  77. |                           dNNNNN"                                  |
  78. |                           NNN@"      Web Designing and          // |
  79. | Visit our Web Site:       ""               Amiga Programming \\//  |
  80. |                                                                    |
  81. |     HTTP://www.geocities.com/Eureka/Gold/1713/                     |
  82. |                                                                    |
  83. +----------------------------+      This signature was created using |
  84. | andrewcrowe@enterprise.net |         AsciiArt Studio               |
  85. +----------------------------+---------------------------------------+
  86.                                 </PRE>/
  87.  
  88. --BOUNDARY.1195541720.1
  89. Content-Type: text/plain; charset=iso-8859-1; name="Rot-Zoom.asc"
  90. Content-Disposition: attachment; filename="Rot-Zoom.asc"
  91. Content-Transfer-Encoding: quoted-printable
  92.  
  93. '-----Start Cut----- =
  94.  
  95.  
  96. '> I have Speeded up the code as much as I can by optimization!  =
  97.  
  98. '> I think I can use this! Thankyou... I thought U would want  =
  99.  
  100. '> The faster code... so here You are! =
  101.  
  102. '> I have turned all numbers within the main loop 2 variables  =
  103.  
  104. '> as it is faster... but I think it makes it slower when compiled =
  105.  
  106. '> so if U compile this Reenter the numbers instead of the varialbes!  =
  107.  
  108. '> Ps... I do have the Turbo Extension its just that I think the File  =
  109.  
  110. '> Got scrambled while being emailed! I actually managed 2 guess what  =
  111.  
  112. '> the commands where ( coz of their Syntax ) after I sent U the 2nd mail=
  113.   =
  114.  
  115. '> But I wasn't sure.... I've sped up the prog by not using point...   =
  116.  
  117. '> instead by reading the Image data from a bank... Memory Extensive   =
  118.  
  119. '> but faster!!!!  =
  120.  
  121. '> Bye!  =
  122.  
  123.  
  124. '
  125. ' Whoops, looks like you left the picture->memory bank converter out.
  126. '
  127. ' I've done that, added support for bigger screen sizes and you can move =
  128.  
  129. ' around the map now (press fire)
  130. '
  131. ' + you can use quicker F Plots (or just Plot) insted of filled boxes  =
  132.  
  133. '
  134. '
  135. ' Still a little too slow, maybe it'll have a use with a PPC version of A=
  136. MOS ;)
  137. '
  138. '
  139. ' (PS I doubt the Email was scrambled, I had to re-type every command I u=
  140. sed after =
  141.  
  142. '  I updated my copy of AmosTurbo, the old format commands got scrambled =
  143. in the
  144. '  same way!)
  145. '
  146. '
  147.  
  148. Input "What Detail (1-200) ?";SKL
  149. Input "draw method? dots =3D 0/filled =3D 1";METH
  150. Load Iff "3d/worldmap.lores",0
  151.  
  152. SW=3DScreen Height
  153. SH=3DScreen Width
  154.  
  155. Reserve As Work 8,(SW*SH)+1000 : Rem add a bit extra to avoid crashes!
  156.  
  157. ST8=3DStart(8)
  158.  
  159.  
  160. For Y=3D0 To SH
  161.    For X=3D0 To SW
  162.       Poke ST8+(Y*SW)+X,Point(X,Y)
  163.    Next =
  164.  
  165. Next =
  166.  
  167.  
  168. Flash Off =
  169.  
  170. Curs Off =
  171.  
  172. Degree =
  173.  
  174. Cls 0
  175. Double Buffer =
  176.  
  177. Autoback 0
  178. MX=3DSW/SKL
  179. MY=3DSH/SKL
  180. PX=3DSW/2
  181. PY=3DSH/2
  182. PX#=3DPX
  183. PY#=3DPY
  184. ZOM=3D50
  185. D2=3D2
  186. NU=3D256
  187. UN=3D16384
  188. AA=3D10
  189. ZA=3D4
  190. Do =
  191.  
  192.    If OANG<>ANG or ZOM<>OZOM or NPOS
  193.       NPOS=3D0
  194.       MX2=3DMX/D2
  195.       MY2=3DMY/D2
  196.       ZIM=3DZOM*SKL
  197.       S=3DSin(ANG)*NU
  198.       C=3DCos(ANG)*NU
  199.       For Y=3D0 To MY
  200.          For X=3D0 To MX
  201.             XM=3D(X-MX2)*ZIM
  202.             YM=3D(Y-MY2)*ZIM
  203.             OX=3DXM*C+YM*S
  204.             OY=3DYM*C-XM*S
  205.             NX=3DOX/UN+PX
  206.             NY=3DOY/UN+PY
  207.             If NX>SW or NX<0 or NY>SH or NY<0
  208.                P=3D0
  209.             Else =
  210.  
  211.                P=3DPeek(ST8+(NY*SW)+NX)
  212.             End If =
  213.  
  214.             If METH
  215.                Cls P,X*SKL,Y*SKL To X*SKL+SKL,Y*SKL+SKL
  216.             Else =
  217.  
  218.                F Plot X*SKL,Y*SKL,P
  219.                'Plot X*SKL,Y*SKL,P:Rem  If you don't have AMOSTurbo =
  220.  
  221.             End If =
  222.  
  223.          Next X
  224.       Next Y
  225.       Screen Swap =
  226.  
  227.    End If =
  228.  
  229.    OANG=3DANG
  230.    OZOM=3DZOM
  231.    JA=3DJright(1)-Jleft(1)
  232.    JB=3DJup(1)-Jdown(1)
  233.    If Fire(1)
  234.       NX#=3DSin(ANG)*2
  235.       PX#=3DPX#-NX#
  236.       NY#=3DCos(ANG)*2
  237.       PY#=3DPY#-NY#
  238.       PX=3DPX#
  239.       PY=3DPY#
  240.       NPOS=3D-1
  241.    End If =
  242.  
  243.    ANG=3DANG+(JA*AA)
  244.    ZOM=3DZOM+(JB*ZA)
  245.    If ZOM<2
  246.       ZOM=3D2
  247.    End If =
  248.  
  249. Loop =
  250.  
  251.  
  252. '-----Start Cut----- =
  253.  
  254.  
  255. --BOUNDARY.1195541720.1--
  256.  
  257.